home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 10
/
CU Amiga Magazine's Super CD-ROM 10 (1997-03-15)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-05][50887 CUAM10].iso
/
CUCD
/
Graphics
/
WildFire
/
WildFireFPU
/
Macros
/
animInfo.rexx
next >
Wrap
OS/2 REXX Batch file
|
1997-01-11
|
1KB
|
47 lines
/*
------------------------------------------------------------
animInfo.rexx
This script demonstrates the ARexx-animInfo-command.
Copyright ©1996 WK-Artworks
------------------------------------------------------------
*/
if ~show('P','Wildfire') then do
say " Error: The Wildfire-program must be started before executing this script."
exit
end
ch1='22'x
address 'Wildfire'
options results
t_getanimdrawer
preset=result
t_getfile preset
fn=result
if fn="" then exit
t_animinfo fn
t_getwidth
width=result
t_getheight
height=result
t_getdepth
depth=result
t_getframes
frames=result
if ~open(script,"t:wf.tmp",'W') then do
/* message "Error: Couldn't open script"*/
exit
end
call writeln(script,"The selected animation")
call writeln(script,ch1 || fn || ch1)
call writeln(script,"has a resolution of " || width || "x" || height || "x" || depth)
call writeln(script,"and consists of " || frames || " frames.")
call close(script)
txt_text "t:wf.tmp"
txt_wait
address command "delete >NIL: t:wf.tmp"